home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed17.d64 / lesson 5 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  235 lines
  1. 10 GOTO100
  2. 50 REM <YES>
  3. 51 S=54272:FORE=STOS+28:POKEE,0:NEXT
  4. 52 POKE54296,15:POKE54277,42:POKE54278,250
  5. 53 POKE54276,23:POKE54273,23:POKE54272,191
  6. 54 FORT=1TO150:NEXT:POKE54276,32:FORT=1TO200:NEXT
  7. 55 POKE54296,0:RETURN
  8. 60 REM <N0>
  9. 61 S=54272:FORE=STOS+28:POKEE,0:NEXT
  10. 62 POKE54296,15:POKE54277,18:POKE54278,242
  11. 63 POKE54276,33:POKE54273,4:POKE54272,48
  12. 64 FORT=1TO250:NEXT:POKE54276,32:FORT=1TO300:NEXT
  13. 65 POKE54296,0:RETURN
  14. 70 REM <BLIP>
  15. 71 S=54272:FORE=STOS+28:POKEE,0:NEXT
  16. 72 POKE54296,5:POKE54277,42:POKE54278,250
  17. 73 POKE54276,23:POKE54273,23:POKE54272,191
  18. 74 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
  19. 75 POKE54296,0:RETURN
  20. 80 FORT=1TO500:NEXT:RETURN
  21. 81 FORT=1TO1000:NEXT:RETURN
  22. 82 FORT=1TO2000:NEXT:RETURN
  23. 83 FORT=1TO3000:NEXT:RETURN
  24. 84 FORT=1TO4000:NEXT:RETURN
  25. 85 FORT=1TO5000:NEXT:RETURN
  26. 90 GOSUB81:GOSUB70
  27. 91 PRINT"[154]      [208]RESS [211][208][193][195][197][160][194][193][210][160]TO CONTINUE.[159]"
  28. 92 GETR$:IFR$<>CHR$(32)THEN92
  29. 93 RETURN
  30. 100 POKE53280,0:POKE53281,0:POKE646,3:POKE53272,23:C=0:P=0:W=0:D=0:G=0
  31. 101 PRINT"[147]      [193][160][212][208][213][199][160][197][196][213][195][193][212][201][207][206][193][204][160][208][210][207][199][210][193][205]
  32. 102 [153]"           ASC(null)(null)CLOSELEN64 LEN(null)(null)(null)(null)(null)VAL(null)(null)
  33. 105 PRINT"                                        [146]";
  34. 110 PRINT"                                        [146]";
  35. 115 PRINT"     [208]RACTICE [208]ROBLEMS IN [193]RITHMETIC    [146]";
  36. 120 PRINT"                                        [146]";
  37. 125 PRINT"           [199]RADE 3     [208]ART 2           [146]";
  38. 130 PRINT"                                        [146]";
  39. 135 PRINT"               [204]ESSON 5                 [146]";
  40. 140 PRINT"                                        [146]";
  41. 145 PRINT"           [199]ENERAL [208]ROBLEMS    [159]         [146]";
  42. 150 PRINT"                                        [146]";
  43. 155 PRINT"                                        [146]"
  44. 160 PRINT"                  WHC "
  45. 165 GOSUB90
  46. 170 PRINT"[147]       [193]ND AWAY WE GO......."
  47. 175 GOSUB81:GOSUB50:GOSUB80
  48. 200 PRINT"[152][147]               [209]UESTION 1 [146][159]":Z=0
  49. 205 PRINT"  [215]HAT IS THE TOTAL COST OF A PAIR OF
  50. 210 [153]"  SCHOOL SHOES PRICED AT $9.25 AND
  51. 215 PRINT"  A SWEATER THAT SELLS FOR $8.50
  52. 217 [153]"  (STR$ON'T FORGET THE $ SIGN)"
  53. 220 [141]81:[141]70
  54. 225 [153]"             ON"
  55. 230 [133] A$
  56. 235 [139]A$[179][177]"$17.75"[167] 250
  57. 240 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  58. 245 P[178]P[170]1:[137]300
  59. 250 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  60. 255 [139]Z[178]2[167]G[178]G[170]1:[137]270
  61. 260 [153]"SYSON  (null)RY AGAIN                             OPEN":[141]70:[141]81:W[178]W[170]1
  62. 265 [153]"OPENONON                                        ONONONONONONON":[137]225
  63. 270 [153]"SYSONON   (null)HE CORRECT ANSWER IS  $17.75 SYS      ":[141]82
  64. 275 [153]"             9.25 + 8.50 = 17.75   OPEN"
  65. 295 [141]82:[141]90
  66. 300 [153]"PRINT#LOAD               (null)UESTION 2 WAITOPEN":Z[178]0
  67. 305 [153]"  RIGHT$F $7.20 IS DIVIDED EVENLY AMONG
  68. 310 PRINT"  4 CHILDREN, HOW MUCH WILL EACH ONE      RECEIVE?"
  69. 320 GOSUB81:GOSUB70
  70. 325 PRINT"             [145]"
  71. 330 INPUT A$
  72. 335 IFA$<>"$1.80"THEN 350
  73. 340 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  74. 345 P=P+1:GOTO400
  75. 350 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  76. 355 IFZ=2THENG=G+1:GOTO370
  77. 360 PRINT"[158][145]  [212]RY AGAIN                             [159]":GOSUB70:GOSUB81:W=W+1
  78. 365 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO325
  79. 370 PRINT"[158][145][145]   [212]HE CORRECT ANSWER IS  $1.80 [158]      ":GOSUB82
  80. 375 PRINT"                7.20 / 4 = 1.80   [159]"
  81. 395 GOSUB82:GOSUB90
  82. 400 PRINT"[152][147]               [209]UESTION 3 [146][159]":Z=0
  83. 405 PRINT"  [212]HERE ARE 56 PASSENGERS ON THE BUS.
  84. 410 [153]"  RIGHT$F THE FARE IS 50 CENTS, HOW MUCH
  85. 415 PRINT"  MONEY DID THE BUS DRIVER COLLECT?"
  86. 420 GOSUB81:GOSUB70
  87. 425 PRINT"             [145]"
  88. 430 INPUT A$
  89. 435 IFA$<>"$28.00"ANDR$<>"$28"THEN450
  90. 440 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  91. 445 P=P+1:GOTO500
  92. 450 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  93. 455 IFZ=2THENG=G+1:GOTO470
  94. 460 PRINT"[158][145]  [212]RY AGAIN                             [159]":GOSUB70:GOSUB81:W=W+1
  95. 465 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO425
  96. 470 PRINT"[158][145][145]   [212]HE CORRECT ANSWER IS  $28.00 [158]      ":GOSUB82
  97. 475 PRINT"                56 X .50 = 28.00  [159]"
  98. 495 GOSUB82:GOSUB90
  99. 500 PRINT"[152][147]               [209]UESTION 4 [146][159]":Z=0
  100. 505 PRINT"  [201]F A TICKET TO THE PARTY COSTS $.25,
  101. 510 [153]"  HOW MUCH MONEY WILL IT COST FOR 7
  102. 515 PRINT"  CHILDREN TO GO?"
  103. 520 GOSUB81:GOSUB70
  104. 525 PRINT"             [145]"
  105. 530 INPUT A$
  106. 535 IFA$<>"$1.75"THEN550
  107. 540 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  108. 545 P=P+1:GOTO600
  109. 550 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  110. 555 IFZ=2THENG=G+1:GOTO570
  111. 560 PRINT"[158][145]  [212]RY AGAIN                             [159]":GOSUB70:GOSUB81:W=W+1
  112. 565 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO525
  113. 570 PRINT"[158][145][145]   [212]HE CORRECT ANSWER IS  $1.75 [158]      ":GOSUB82
  114. 575 PRINT"                 .25 X 7 = 1.75   [159]"
  115. 595 GOSUB82:GOSUB90
  116. 600 PRINT"[152][147]               [209]UESTION 5 [146][159]":Z=0
  117. 605 PRINT"  [200]OW MUCH DID [205]RS. [202]ONES SPEND FOR A
  118. 610 [153]"  TOY WAGON AT $7.50 AND A DOLL AT        $3.25?"
  119. 620 [141]81:[141]70
  120. 625 [153]"             ON"
  121. 630 [133] A$
  122. 635 [139]A$[179][177]"$10.75"[167]650
  123. 640 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  124. 645 P[178]P[170]1:[137]700
  125. 650 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  126. 655 [139]Z[178]2[167]G[178]G[170]1:[137]670
  127. 660 [153]"SYSON  (null)RY AGAIN                             OPEN":[141]70:[141]81:W[178]W[170]1
  128. 665 [153]"OPENONON                                        ONONONONONONON":[137]625
  129. 670 [153]"SYSONON   (null)HE CORRECT ANSWER IS  $10.75 SYS      ":[141]82
  130. 675 [153]"             7.50 + 3.25 = 10.75  OPEN"
  131. 695 [141]82:[141]90
  132. 700 [153]"PRINT#LOAD               (null)UESTION 6 WAITOPEN":Z[178]0
  133. 705 [153]"  (null)HREE BOYS BOUGHT A BASKETBALL FOR
  134. 710 PRINT"  $18.90.  [201]F THEY SHARED THE COST
  135. 715 [153]"  EQUALLY, WHAT DID EACH PAY?"
  136. 720 [141]81:[141]70
  137. 725 [153]"             ON"
  138. 730 [133] A$
  139. 735 [139]A$[179][177]"$6.30"[167]750
  140. 740 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  141. 745 P[178]P[170]1:[137]800
  142. 750 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  143. 755 [139]Z[178]2[167]G[178]G[170]1:[137]770
  144. 760 [153]"SYSON  (null)RY AGAIN                             OPEN":[141]70:[141]81:W[178]W[170]1
  145. 765 [153]"OPENONON                                        ONONONONONONON":[137]725
  146. 770 [153]"SYSONON   (null)HE CORRECT ANSWER IS  $6.30 SYS      ":[141]82
  147. 775 [153]"               18.90 / 3 = 6.30  OPEN"
  148. 795 [141]82:[141]90
  149. 800 [153]"PRINT#LOAD               (null)UESTION 7 WAITOPEN":Z[178]0
  150. 805 [153]"  (null)HAT WILL BE THE COST OF TWO DOZEN
  151. 810 PRINT"  APPLES IF THEY ARE SOLD AT 6 CENTS      EACH?"
  152. 820 GOSUB81:GOSUB70
  153. 825 PRINT"             [145]"
  154. 830 INPUT A$
  155. 835 IFA$<>"$1.44"THEN850
  156. 840 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  157. 845 P=P+1:GOTO900
  158. 850 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  159. 855 IFZ=2THENG=G+1:GOTO870
  160. 860 PRINT"[158][145]  [212]RY AGAIN                             [159]":GOSUB70:GOSUB81:W=W+1
  161. 865 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO825
  162. 870 PRINT"[158][145][145]   [212]HE CORRECT ANSWER IS  $1.44 [158]      ":GOSUB82
  163. 875 PRINT"                  24 X 6 = 1.44  [159]"
  164. 895 GOSUB82:GOSUB90
  165. 900 PRINT"[152][147]               [209]UESTION 8 [146][159]":Z=0
  166. 905 PRINT"  [194]ILL HAS $3.25.  [200]OW MUCH MORE DOES
  167. 910 [153]"  HE NEED TO BUY A BALL FOR $5.00?"
  168. 920 [141]81:[141]70
  169. 925 [153]"             ON"
  170. 930 [133] A$
  171. 935 [139]A$[179][177]"$1.75"[167]950
  172. 940 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  173. 945 P[178]P[170]1:[137]1000
  174. 950 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  175. 955 [139]Z[178]2[167]G[178]G[170]1:[137]970
  176. 960 [153]"SYSON  (null)RY AGAIN                             OPEN":[141]70:[141]81:W[178]W[170]1
  177. 965 [153]"OPENONON                                        ONONONONONONON":[137]925
  178. 970 [153]"SYSONON   (null)HE CORRECT ANSWER IS  $1.75 SYS      ":[141]82
  179. 975 [153]"             5.00 - 3.25 = 1.75  OPEN"
  180. 995 [141]82:[141]90
  181. 1000 [153]"PRINT#LOAD               (null)UESTION 9 WAITOPEN":Z[178]0
  182. 1005 [153]"  (null)R PEEKROWN BOUGHT THREE TICKETS TO THE
  183. 1010 PRINT"  BALL GAME AT $2.20 EACH.
  184. 1015 [153]"  LEFT$OW MUCH DID HE HAVE TO PAY?"
  185. 1020 [141]81:[141]70
  186. 1025 [153]"             ON"
  187. 1030 [133] A$
  188. 1035 [139]A$[179][177]"$6.60"[167]1050
  189. 1040 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  190. 1045 P[178]P[170]1:[137]1100
  191. 1050 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  192. 1055 [139]Z[178]2[167]G[178]G[170]1:[137]1070
  193. 1060 [153]"SYSON  (null)RY AGAIN                             OPEN":[141]70:[141]81:W[178]W[170]1
  194. 1065 [153]"OPENONON                                        ONONONONONONON":[137]1025
  195. 1070 [153]"SYSONON   (null)HE CORRECT ANSWER IS  $6.60 SYS      ":[141]82
  196. 1075 [153]"                2.20 X 3 = 6.60     OPEN"
  197. 1095 [141]82:[141]90
  198. 1100 [153]"PRINT#LOAD               (null)UESTION 10 WAITOPEN":Z[178]0
  199. 1105 [153]"  MID$ACK'S FATHER TOLD HIM HE MUST SAVE
  200. 1110 PRINT"  $6 IN THE NEXT FOUR MONTHS.
  201. 1115 [153]"  LEFT$OW MUCH WILL MID$ACK HAVE TO SAVE EACH    MONTH?"
  202. 1120 [141]81:[141]70
  203. 1125 [153]"             ON"
  204. 1130 [133] A$
  205. 1135 [139]A$[179][177]"$1.50"[167]1150
  206. 1140 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  207. 1145 P[178]P[170]1:[137]1200
  208. 1150 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  209. 1155 [139]Z[178]2[167]G[178]G[170]1:[137]1170
  210. 1160 [153]"SYSON  (null)RY AGAIN                             OPEN":[141]70:[141]81:W[178]W[170]1
  211. 1165 [153]"OPENONON                                        ONONONONONONON":[137]1125
  212. 1170 [153]"SYSONON   (null)HE CORRECT ANSWER IS  $1.50 SYS      ":[141]82
  213. 1175 [153]"                6.00 / 4 = 1.50     OPEN"
  214. 1195 [141]82:[141]90
  215. 1200 [153]"LOAD           (null)EPORT LENARD WAIT"
  216. 1205 D[178]W[171]G:C[178]10[171]W
  217. 1210 [153]"PRINT  1. (null)UESTIONS ANSWERED CORRECTLY            ON FIRST TRY:
  218. 1215 PRINT"                 ";C
  219. 1220 PRINT"[129]  2. [209]UESTIONS ANSWERED CORRECTLY            ON SECOND TRY:
  220. 1225 [153]"                 ";D
  221. 1230 [153]"DEF  3. (null)UESTIONS MISSED ON SECOND TRY:
  222. 1235 PRINT"                 ";G;""
  223. 1245 GOSUB90
  224. 1250 PRINT"[158][147]  [217]OU HAVE A CHOICE:
  225. 1255 [153]"  (null)RESS  (null) WAIT TO REPEAT THIS LESSON
  226. 1260 PRINT"  [208]RESS  [205] [146] TO RETURN TO THE MENU[159]"
  227. 1265 GETR$:IFR$<>"R"ANDR$<>"M"THEN1265
  228. 1270 IFR$="R"THENRESTORE:GOTO100
  229. 1275 RESTORE
  230. 1280 PRINT"[147] [210]ETURNING TO THE DISK MENU
  231. 1285 [147]"MENU",8
  232. 1290 [138]
  233. 1295 [128]
  234. 1300 [143] BILL CUMBERLAND 90:12:19
  235.